ＦＯＲＴＲＡＮ−ＭＺＢ ――――――――――――――――――――――――――――――――――――――― ＭＺ−８０Ｂ活用研究　掲載 ＭＺ−８０Ｂ マシン語　０１３００Ｈ−０４ＣＦＦＨ コールド・スタート　０１３００Ｈ ホット・スタート　　０１３２ＡＨ １　ＦＦＴの例題プログラム　ＦＯＲＴＲＡＮ−ＭＺＢテキスト ２　リサージュ図形　　　　　ＦＯＲＴＲＡＮ−ＭＺＢテキスト 起動方法 モニタからＬ ――――――――――――――――――――――――――――――――――――――― Ｉ／Ｏ’81年１月号のＦＯＲＴＲＡＮ−ＭＺをＭＺ−８ＯＢに移植しました。 グラフィック関係を少々強化しただけで、ほかはＭＺ−８ＯＫ／Ｃ版と同じです。 ◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇ 　　　　　　　コンパイラ ◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇ コンパイラ・モードで受け付けられるコマンドは１１種類あります。 （１）ＥＤＩＴ 　　　このコマンドは内蔵されているエディタにジャンプします。 　　　エディタの説明は後にします。 　　・――――――――――――――――――――・ 　　｜　ＥＤＩＴ　[ＣＲ]　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ （２）ＣＯＭＰＩＬ 　　　テキスト・ファイルがメモリ上にある場合に、 　　　そのテキストを読みながらコンパイルします。 　　　コンパイラによって展開されたオブジェクトは 　　　テキスト・エンドから作られていきます。 　　・――――――――――――――――――――・ 　　｜　ＣＯＭＰＩＬ[ＣＲ]　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　　テキストがない場合、またはＥＮＤ行がない場合には、 　　・――――――――――――――――――――・ 　　｜　ＦＩＬＥ　ＥＲＲＯＲ　ＡＢＯＲＴ！　　｜ 　　・――――――――――――――――――――・ 　　　がでます。 （３）ＥＸＥＣ 　　　カセットにテキストが落ちている場合にこれを読みながら 　　　コンパイルすることができます。 　　・――――――――――――――――――――・ 　　｜　ＥＸＥＣ〔ＦＩＬＥ　ＮＡＭＥ〕[ＣＲ]　｜ 　　｜　↓ＰＬＡＹ　　　　　　　　　　　　　　｜ 　　｜　￣　　　　　　　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　このコマンドを実行すると、コンパイラはカセットから 　　　１ブロックごと読み込んで、そのつどコンパイルしていきます。 　　　オンメモリで、コンパイルしたときに 　　　メモリエラーが出るような場合には、 　　　いったんカセットにテキストを落として 　　　ＥＸＥＣで実行してください。 （４）ＢＳＡＶＥ 　　　ＣＯＭＰＩＬまたはＥＸＥＣで作ったオブジェクトを外部へ 　　　出力するときにこれを使います。 　　・――――――――――――――――――――・ 　　｜　ＢＳＡＶＥ〔ＦＩＬＥＮＡＭＥ〕[ＣＲ]　｜ 　　・――――――――――――――――――――・ （５）ＬＩＳＴ指定 　　　ＣＯＭＰＩＬ、ＥＸＥＣによりコンパイルすると、 　　　コンパイラはコンパイルした行を表示します。 　　　ＬＩＳＴ指定によって全リストを表示したり、しなかったり、 　　　またエラーのあった行のみ表示することができます。 　　　●ＬＩＳＴＮ 　　　　コンパイル・リストは表示せず、 　　　　エラーの合計とメモリ・サイズを表示します。 　　　　初期状態ではこのモードです。 　　　●ＬＩＳＴＥ 　　　　エラーのなる行のみ出力して、 　　　　エラー合計、メモリ、サイズを表示します。 　　　●ＬＩＳＴ 　　　　すべてのコンパイル・リストを出力します。 　　　●ＬＩＳＴＰ 　　　　出力デバイスをプリンタに切り換えます。 　　　　ＬＩＳＴＰはプリンタ・モードのＬＩＳＴで、 　　　　これの後にＬＩＳＴＮ，ＬＩＳＴＥを実行すると、 　　　　プリンタ・モードのそれになります。 　　　　電源が入っていない場合、ＵＮＤＥＦＩＮＥＤを返してきます。 　　　●ＬＩＳＴＣ 　　　　この指定によってプリンタ・モードを解除します。 （６）ＲＵＮ 　　　コンパイル・オブジェクトをＦＯＲＴＲＡＮから 　　　直接実行する場合にＲＵＮを使います。 　　　ＲＵＮはオブジェクトを単に実行するだけで、 　　　その他の処理は行ないません。 　　　ただ、ＳＴＯＰ文、ＢＲＥＡＫ文によって、 　　　オブジェクトが停止した場合のみコンパイラに戻るよう 　　　スーパーバイズしています。 （７）ＢＹＥ 　　　モニタヘジャンプします。 　　・――――――――――――――――――――・ 　　｜　コールド・スタート　　１３００Ｈ　　　｜ 　　｜　　ホット・スタート　　１３２ＡＨ　　　｜ 　　・――――――――――――――――――――・ ◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇ 　　　　　　　　エディタ ◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇ エディタは、カーソル・エディットができる簡単なエディタです。 画面上にリストが残っていれば、いつでも修正可能です。 メモリ内イメージは、シャープのＴＥＸＴエディタと同じく、 ＣＲで区切られた文字列です。 カセットの記録フォーマットも同じなので、 シャープのテキスト・エディタでソースを作って、 コンパイルしてもかまいません。 コンパイラからエディタヘジャンプします。 　　・――――――――――――――――――――・ 　　｜　ＥＤＩＴ[ＣＲ]　　　　　　　　　　　　｜ 　　｜　＃■　　　　　　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ これによりエディタ・モードを示すために＃を出力して、 入力待ちになります。 エディタ・コマンドは以下の８個です。 　＆…ＮＥＷ　　　　Ｄ…ＤＥＬＥＴＥ 　Ｉ…ＩＮＳＥＲＴ　！…ＣＯＭＰＩＬＥＲ 　Ｂ…ＢＲＥＡＫ　　Ｒ…ＲＥＡＤ　ＦＩＬＥ 　Ｌ…ＬＩＳＴ　　　Ｗ…ＷＲＩＴＥ　ＦＩＬＥ （１）Ｉｎｓｅｒｔ 　　　Ｉコマンドは、テキストをインサードするときに使います。 　　　このコマンドは常にテキスト・エンドへインサートします。 　　　[SHIFT]＋[BREAK]を押すことによって、 　　　コマンド・レベルヘ戻ります。 　　・――――――――――――――――――――・ 　　｜　＃Ｉ[ＣＲ]　　　　　　　　　　　　　　｜ 　　｜　■　　　　　　　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ （２）Ｂｒｅａｋ 　　　Ｂコマンドは、行間に１行インサートしたいときに使います。 　　・――――――――――――――――――――・ 　　｜　Ｂｎ■　　　　　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　ｎで指定した番号の行は１行下にさがり、その上にインサートされます。 　　・――――――――――――――――――――・ 　　｜　＃Ｂｎ　　　　　[ＣＲ]　　　　　　　　｜ 　　｜　Ｓｔｒｉｎｇｓ　[ＣＲ]　　　　　　　　｜ 　　｜　＃■　　　　　　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　ｎは、ＬＩＳＴしたときにエディタが付ける番号です。 （３）Ｌｉｓｔ． 　　　Ｌコマンドはインサートしたテキストをリストします。 　　　次の３つの型があります。 　　・――――――――――――――――――――・ 　　｜　＃Ｌ[ＣＲ]　　　　　　　　　　　　　　｜ 　　｜　＃Ｌ，ｎ[ＣＲ]　　　　　　　　　　　　｜ 　　｜　＃Ｌ，Ｐ[ＣＲ]　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　●Ｌ 　　　　テキストの先頭からＣＲＴに表示します。 　　　　[SHIFT]＋[BREAK]によって途中で止めることが可能です。 　　　●Ｌ，ｎ 　　　　ｎはＬＩＳＴしたときに、エディタが付ける番号で、 　　　　ｎ番以降のリストを行ないます。 　　　　ＬＩＳＴを止めるのはＬと同じです． 　　　●Ｌ，Ｐ 　　　　プリンタにＬＩＳＴを出力します。 　　　　ただし、ｎ番以降のＬＩＳＴ出力はできません。 　　　　止める場合はＬと同じです。 　　　ＬＩＳＴの画面は次のようになっています。 　　・――――――――――――――――――――・ 　　｜　＃Ｌ[ＣＲ]　　　　　　　　　　　　　　｜ 　　｜　　　０：Ｓｔｒｉｎｇｓ　　　　　　　　｜ 　　｜　　　１：Ｓｔｒｉｎｇｓ　　　　　　　　｜ 　　｜　　　２：Ｓｔｒｉｎｇｓ　　　　　　　　｜ 　　｜　　　　　　｜　　　　　　　　　　　　　｜ 　　｜　＃■　　　　　　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　左側の番号がエディタの付けた番号で、Ｓｔｒｉｎｇｓは 　　　インサートしたテキストです。 　　　番号とテキストの間に『：』が入いっています。 （４）Ｄｅｌｅｔｅ 　　　Ｄコマンドは、１行デリートします。 　　・――――――――――――――――――――・ 　　｜　＃Ｄｎ[ＣＲ]　　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　　ｎで指定したテキストが抹消されます。 　　　　ｎはエディタの付けた番号です。 （５）Ｃｏｍｐｉｌｅ 　　　！コマンドはエディタ・モードを抜け、コンパイラ・モードヘ 　　　移る場合に使います。 　　・――――――――――――――――――――・ 　　｜　＃！[ＣＲ]　　　　　　　　　　　　　　｜ 　　｜　ＯＫ．　　　　　　　　　　　　　　　　｜ 　　｜　■　　　　　　　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ （６）Ｎｅｗ 　　　＆コマンドはテキスト・エリアをクリアし、初期化します。 　　・――――――――――――――――――――・ 　　｜　＃＆[ＣＲ]　　　　　　　　　　　　　　｜ 　　｜　＃■　　　　　　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ （７）Ｒｅａｄ、Ｗｒｉｔｅ 　　　Ｒ、Ｗコマンドはカセットに対しての入出力用です。 　　　これによってテキスト・レベルでプログラムの保存ができます。 　　　●Ｒ 　　　　テキストを読み込みます。 　　・――――――――――――――――――――・ 　　｜　＃Ｒ〔ＦＩＬＥ　ＮＡＭＥ〕[ＣＲ]　　　｜ 　　・――――――――――――――――――――・ 　　　　ファイル名は省略可能です。 　　　●Ｗ 　　　　メモリにあるテキストをカセットに落します。 　　・――――――――――――――――――――・ 　　｜　＃Ｗ〔ＦＩＬＥ　ＮＡＭＥ〕[ＣＲ]　　　｜ 　　・――――――――――――――――――――・ 　　　　ファイル名は省略可能です。 （８）カーソル移動キー 　　　画面にリストが残っていれば、 　　　ＢＡＳＩＣと同じようにカーソルを動かして修正が可能です。 　　　ただし、Ｉコマンド実行中はできません。 　　　カーソル・エディットするときは、 　　　エディタが付けた番号と“：”を消さないでください。 　　　これがなくなると 　　　エディタはどのテキストを修正したかがわからなくなり、 　　　コマンド待ちの状態へ戻ります。 　　　[ＣＲ]はどこで押してもかまいませんが、 　　　その行の下にテキストがある場合には、 　　　“：”の後にカーソルがなければ、 　　　＃を出力してカーソルが点滅し、入力待ちになります。 　　　このエディタは＃がないとコマンドを受け付けられません。 ◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇ 　　Ｆ０ＲＴＲＡＮ−ＭＺＢの文法 ◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇ １）プログラムの構成 　　ソース・プログラムは図１のような構成になります。 　　宣言文は省略可能です。 　　ＥＮＤ文はプログラムの最後に必要です。 　　コンパイラはこれをみて、コンパイルを終了します。 　　各々の文は１行（１行は８０字以内）に書かれ、継続はできません。 　　文の１桁目に空白以外の文字があると、その文は注釈文になります。 　　文番号は必要な文にだけ、１〜65,535の 　　任意の数を割り当てるだけで良く、 　　ＢＡＳＩＣのようにすべての文に順に割り当てる必要はありません。 　　図１　ソース・プログラムの構成 　　　　　・―――――――・ 　　　　　｜　宣　言　文　｜ 　　　　　｜―――――――｜ 　　　　　｜　実　行　文　｜ 　　　　　｜　実　行　文　｜ 　　　　　｜　　　：　　　｜ 　　　　　｜　　　：　　　｜ 　　　　　｜　　　：　　　｜ 　　　　　｜―――――――｜ 　　　　　｜　実　行　文　｜ 　　　　　｜―――――――｜ 　　　　　｜　ＥＮＤ　文　｜ 　　　　　・―――――――・ ２）主プログラムと副プログラム 　　主プログラみと副プログラム（サブルーチン）はプログラム単位として 　　区別されるのではなく、両者は１つのプログラムの中にあります。 　　変数名は両者で共用されます。 ３）文の要素 （１）定数 　　　ａ）整数型定数 　　　　　-32,767〜+32,797　10進数、 　　 あるいは$0000〜$FFFFの16進数 　　　　【例】　123,-65,$0F,$A12 　　　ｂ）実数型定数 　　　　　1.67×10^-19〜1.67×10^18の任意の数で有効桁数は７桁 　　　　【例】1.0,-1.23,1.5E+12,-0.2E-5 　　　ｃ）文字型定数 　　　　　その文字のＡＳＣＩＩコードが数値になる。 　　　　【例】＃Ａ，＃Ｂ 　　　ｄ）π　πは3.14159と書くのと同じことを意味する。 （２）変数 　　　変数名には１〜４文字の一連の英数字を使います。 　　　最初の文字は必ず英字であることが必要です。 　　　変数名の最初の文字がＩ、Ｊ、Ｋ、Ｌ、Ｍ、Ｎのいずれかである場合は 　　　整数型の変数名、それ以外の英字である場合は 　　　実数型の変数名として区別されます。 　　　予約語は変数名として使われません。 （３）配列 　　　配列はＤＩＭＥＮＳＩＯＮ文で宣言します。 　　　配列名の付け方は変数の場合と同じで、 　　　やはり整数型と実数型に区別されます。 　　【例】DIMENSION A(M)　　ただし、１≦Ｍ≦2,047 　　　　　DIMENSION K(M,N)　ただし、１≦Ｍ≦255　 　　　　　　　　　　　　　　　　　　１≦Ｎ≦255 　　　　　　　　　　　　　　　　　　１≦(M×N)≦2,047 　 （４）配列の添字 　　　添字は、整定数、整変数、整数型算術式のいずれでもかまいません。 ４）算術式 　　算術演算子には、 　　　１）＾　　（ベキ乗） 　　　２）＊、／（乗算、除算） 　　　３）＋、−（加算、減算） 　　の５種類があります。 　　１）、２）、３）の順に優先度が高く、 　　１つの算術式の中に多種類が使われた場合には、 　　優先度の高いものから順に実行され、 　　同一順位の演算子は左から右に実行されます。 　　ベキ乗にはＪ＾Ｉ、Ａ＾Ｉ、Ａ＾Ｂの３種類の型があります。 　　　・――――――――――――――――――――――――――――・ 　　　｜Ｊ＾Ｉ型｜Ｊ、Ｉともに整数型で、結果も整数型です。　　　｜ 　　　｜　　　　｜Ｉ≧０です。Ｉ＝０のとき、結果は１です。　　　｜ 　　　｜――――＋―――――――――――――――――――――――｜ 　　　｜Ａ＾Ｉ型｜Ａは実数型、Ｉは整数型（Ｉは必ず整数型変数で、｜ 　　　｜　　　　｜“２”、“３”のような数を使うと次のＡ↑Ｂ型　｜ 　　　｜　　　　｜になる）で結果は実数型です。　　　　　　　　　｜ 　　　｜　　　　｜−128≦Ｉ≦127に制限されます。　　　　　　　　｜ 　　　｜――――＋―――――――――――――――――――――――｜ 　　　｜Ａ＾Ｂ型｜Ａ、Ｂともに実数型で、結果も実数型です。　　　｜ 　　　｜　　　　｜ただし、Ａ＞０。　　　　　　　　　　　　　　　｜ 　　　・――――――――――――――――――――――――――――・ 　　Ａ＾Ｉ形はＡをＩ回加算する方法、 　　Ａ＾Ｂ型は自然対数を使って計算する方法がとられるので、 　　通常はＡ＾Ｉ型の方が格段に速く計算できます。 　　上にも書きましたが、Ａ＾Ｉで計算を行ないたいときは、 　　必ずＩに整変数を使わなければなりません。 ５）代入文 　　一般形は、 　　・――――――――――――――――――――・ 　　｜　ｖ＝ａｌ　　　　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　で、右辺での演算結果を左辺の変数に代入します。 　　左辺のｖは変数、配列、メモリ関数、Ｉ／Ｏ関数のいずれかです。 　　変数名および配列名が整数形の場合には右辺の演算は整数型演算、 　　実数型の場合には右辺は実数型演算として処理されます。 ６）制御文 　（１）ＧＯＴＯ文 　　・――――――――――――――――――――・ 　　｜　GOTO x　　　　　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　　ｘは文番号。 　（２）ＩＦ文 　　　　一般形は次のとおりです。 　　・――――――――――――――――――――・ 　　｜　IF(al)x,y,z 　　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　　（　　）の中に書かれた算術式ａｌの演算結果の 　　　　負、零、正に基づいて、 　　　　それぞれ、文番号ｘ，ｙ，ｚにジャンプします。 　　　　算術式は“（”の直後の文字が、 　　　　Ａ，Ｂ，……，Ｈ，０，Ｐ，……，Ｚの場合だけ 　　　　実数型演算として処理され、 　　　　それ以外の場合には整数型演算とみなされます。 　　　　また、（　　）の中に論理関数が使われた場合は整数型演算と同じです。 　　　　ｘ，ｙ，ｚのいずれも省略可能です。 　　　　省略された場合には次の文にジャンプします。 　（３）ＤＯ文 　　　　一般形は、 　　・――――――――――――――――――――・ 　　｜　DO x v=n,m,l　　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　ｘはループの端末文の文番号、 　　　ｖは整変数です。 　　　ｎは開始値、ｍはループの終了値、 　　　ｌは増分のパラメータです。 　　　ｌ、ｍ、ｎは整定数、整変数、整数型算術式が可能です。 　　　ｌか１の場合は省略できます。 　　　ｌ≧１、ｍ≧ｎ≧１ 　　　　ａ）DO文は６重までネスティングが可能です。 　　　　ｂ）DO文の範囲から外へ飛び出せるが、外からは飛び込めません。 　（４）ＣＯＮＴＩＮＵＥ文 　　　　この文はプログラム中、どこにあっても何も実行しませんが、 　　　　DOの端末文、GOTO、IFなどの飛び先としても使えます。 　（５）ＣＡＬＬ文 　　　　この文は指定文番号を、副プログラムの先頭とみなしてコールします。 　　　　変数は主プログラムと共用します。 　（６）ＲＥＴＵＲＮ文 　　　　CALL文で呼ばれた副プログラムの最後に書き、 　　　　この文が実行されるとCALL文の次の文へ戻ります。 　（７）ＰＡＵＳＥ文 　　　　この文を実行するとプログブムはそこで一時停止します。 　　　　この状態でキーを押すと、次の文から実行を再開します。 　　・――――――――――――――――――――・ 　　｜　例　　PAUSE n 　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　　ｎはプログラマーが任意に付ける数字です。 　　　　この文が実行されると『PAUSE n』 が出力され、 　　　　一時停止します。 　　　　ｎはどこのPAUSE文 かを知らせるための番号であるため、 　　　　任意に付けてかまいません。 　　　　必要なければｎは省略可能です。 　　　　また、停止した状態では、[BREAK]キー が受け付けられます。 　（８）ＳＴＯＰ文 　　　　この文はプログラムの実行を停止させるときに使います。 　　　　STOP文はプログラム中どこに入れてもかまいません。 　　・――――――――――――――――――――・ 　　｜　例　　STOP n　　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　　ｎの関係はPAUSE文 と同じです。 　（９）ＢＲＥＡＫ文 　　　　[BREAK]キー のチェックのための文です。 　　　　[BREAK]キー が押されなければ、何も実行しません。 　　　　この文は端末文としても使用可能である。 　（10）ＵＳＲ文 　　　　この文はマシン語とリンクするときに使用します。 　　・――――――――――――――――――――・ 　　｜　例　USR(exp)　　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　　exp で指定されるアドレスをサブルーチン・コールします。 　　　　各レジスタ（AF、BC、DE、HL）はプログラム中で決めることができ、 　　　　RETURNしたときのレジスタヘの受け渡しは 　　　　メモリを介して行なうので、MEM関数 によってセットします。 　　　　各レジスタのアドレスは以下の通り。 　　・――――――――――――――――――――・ 　　｜　　AF→12F0　　　　　　　　　　　　　　｜ 　　｜　　BC→12F2　　　　　　　　　　　　　　｜ 　　｜　　DE→12F4　　　　　　　　　　　　　　｜ 　　｜　　HL→12F6　　　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　　ただし、AF’、BC’、DE’、HL’、IX、IY、SPを 　　　　変えることはできません。 　（11）ＥＮＤ行 　　　　この行はソースの終わりを示すのでコンパイラはこの行を見つけると 　　　　コンパイルを停止します。 　　　　この文には文番号を付けることができません。 ７）入出力文 　（１）ＳＥＴＧ、ＲＥＳＧ文 　　　　320×200の疑似グラフィックのセット、リセット文です。 　　・――――――――――――――――――――・ 　　｜　例　SETG(exp1,exp2) 　　　　　　　　　｜ 　　｜　　　RESG(exp1,exp2) 　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　　exp1，exp2で指定される位置にオペレートします。 　　　　exp1は横方向で０〜319まで、 　　　　exp2は０〜199までの範囲です。 　　　　exp1〜 2は定数、変数、式です。 　（２）ＣＨＭ 　　　　ＶＲＡＭ（キャラクタＲＡＭ）をクリアします。 　（３）ＧＲＣＬＲ 　　　　Ｇ−ＲＡＭ１（グラフィックＲＡＭ１）をクリアします。 　（４）ＧＲＯＮ 　　　　Ｇ−ＲＡＭ１をＣＲＴに出力します。 　（５）ＧＲＯＦＦ 　　　　Ｇ−ＲＡＭ１のＣＲＴ出力をやめます。 　（６）ＲＥＡＤ 　　　　一般形は、 　　・―――――――――――――――――――――――――・ 　　｜　READ(v1.fmt,v2.fmt………) 　　　　　　　　　　　｜ 　　・―――――――――――――――――――――――――・ 　　　　でｖは変数名、配列要素で、 fmtはその形式を表わします。 　　　　 fmtには次のようなものがあります。 　　　　　・―――――――――――――――――――・ 　　　　　｜　v.　　　　　｜　10進整数入力　　　　｜ 　　　　　｜　v. I　　　　｜　10進　〃　　　　　　｜ 　　　　　｜　v. B　　　　｜　16進　〃　　　　　　｜ 　　　　　｜　v. E　　　　｜　10進実数入力　　　　｜ 　　　　　｜　v. A1 　　　｜　　　１文字入力　　　｜ 　　　　　｜　v. A2 　　　｜　　　２文字入力　　　｜ 　　　　　｜　"Strings" 　｜　"　"の中を出力　　　｜ 　　　　　｜　　　　　　　｜　改行　　　　　　　　｜ 　　　　　・―――――――――――――――――――・ 　　　　10進整数入力のときは“Ｉ”が省略できます。 　　　　ｖは実数型変数名です。 　　　　実数型入力のときは、Ｅ型式、Ｆ型式のどちらでもかまいません。 　　　　ここで、Ｅ型式というのは、 　　　　　1.0E+2､ -2.30E-3 　　　　のように“Ｅ”を使って表わす数、 　　　　Ｆ型式というのは、 　　　　　1.0､-2.3､ 0.123 　　　　のように“Ｅ”を使わないで表わす数の表現型式のことです。 　（７）ＷＲＩＴＥ 　　　　一般型は、 　　・―――――――――――――――――――――――――――――・ 　　｜　WRITE(exp1.fmt,exp2.fmt……)　　　　　　　　　　　　　　｜ 　　・―――――――――――――――――――――――――――――・ 　　　　で、 expは定数、変数名、式などです。 　　　　　・――――――――――――――――――――・ 　　　　　｜exp |10進左詰め整数表示　　　　　　｜ 　　　　　｜exp.In |ｎ桁の10進右詰め整数表示　　　｜ 　　　　　｜exp.E |Ｅ型式による実数表示　　　　　｜ 　　　　　｜exp.B2 |16進２桁表示　　　　　　　　　｜ 　　　　　｜exp.B4 |16進４桁表示　　　　　　　　　｜ 　　　　　｜exp.X | expだけスペース表示　　　　　｜ 　　　　　｜exp.A1 |１文字出力　　　　　　　　　　｜ 　　　　　｜exp.A2 |２文字出力　　　　　　　　　　｜ 　　　　　｜exp.V |カーソル・バーチカル・セット　｜ 　　　　　｜exp.H |カーソル・ホリゾンタル・セット｜ 　　　　　｜"strings"|文字列出力　　　　　　　　　　｜ 　　　　　｜/ |改行　　　　　　　　　　　　　｜ 　　　　　・――――――――――――――――――――・ 　　　　 expは定数、変数、式などです。 　　　　なお、0.A1でＣＲＴをセット、 　　　　　　　1.A1でプリンタをセット 　　　　することができます。 　　　　各要素は『，』で区切ることができるが、 　　　　／（改行）だけは区切る必要がありません。 ８）組み込み関数 　　組み込み関数は以下のとおりです。 　　・―――――――――――――――――――――――――――――――――――・ 　　｜１）ＭＥＭ（ｅｘｐ）　　　　　　　　12）ＣＯＳ（ｆｘｐ）　　　　　　　｜ 　　｜２）ＧＥＴ　　　　　　　　　　　　　13）ＴＡＮ（ｆｘｐ）　　　　　　　｜ 　　｜３）ＩＯＣ（ｅｘｐ）　　　　　　　　14）ＥＸＰ（ｆｘｐ）　　　　　　　｜ 　　｜４）ＬＯＷ（ｅｘｐ）　　　　　　　　15）ＡＬＯＧ（ｆｘｐ）　　　　　　｜ 　　｜５）ＭＯＤ（ｅｘｐ１，ｅｘｐ２）　　16）ＡＴＡＮ（ｆｘｐ）　　　　　　｜ 　　｜６）ＩＲＮＤ（ｅｘｐ）　　　　　　　17）ＦＬＯＡＴ（ｆｘｐ）　　　　　｜ 　　｜７）ＩＡＢＳ（ｅｘｐ）　　　　　　　18）ＩＦＩＸ（ｆｘｐ）　　　　　　｜ 　　｜８）ＩＳＩＧＮ（ｅｘｐ１，ｅｘｐ２）19）ＩＯＲ（ｅｘｐ１，ｅｘｐ２）　｜ 　　｜９）ＡＢＳ（ｆｘｐ）　　　　　　　　20）ＩＡＮＤ（ｅｘｐ１，ｅｘｐ２）｜ 　　｜10）ＳＱＲＴ（ｆｘｐ）　　　　　　　21）ＩＸＯＲ（ｅｘｐ１，ｅｘｐ２）｜ 　　｜11）ＳＩＮ（ｆｘｐ）　　　　　　　　　　　　　　　　　　　　　　　　　｜ 　　・―――――――――――――――――――――――――――――――――――・ 　　ｅｘｐは整数型の定数、変数、算術式を、 　　ｆｘｐは実数型のそれらを表わしています。 （１）ＭＥＭ 　　　ＭＥＭ関数はｅｘｐで指定されたメモリをアクセスします。 　　・――――――――――――――――――――・ 　　｜　v=MEM(exp)　　　　　　　　　　　　　　｜ 　　｜　MEM(exp)=exp1 　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　MEM を右辺に置くか左辺に置くかによって機能が変わります。 　　　前者はPEEK的、後者はPOKE的機能を持ちます。 　　　POKE機能の場合、exp1は０〜 255まで使用でき、 　　　それを越える場合には上位８ビットは無視されます。 （２）ＧＥＴ 　　　キーからリアルタイム入力を行ないます。 　　　ＧＥＴ実行中、キー入力があれば対応するＡＳＣＩＩコードの値を持ちます。 　　　入力がなければ０を返します。 　　・――――――――――――――――――――・ 　　｜例　v=GET 　　　　　　　　　　　　　　　｜ 　　｜　　v=GET+exp 　　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ （３）ＩＯＣ 　　　Ｉ／Ｏポートをアクセスします。 　　・――――――――――――――――――――・ 　　｜　v=IOC(exp)　　　　　　　　　　　　　　｜ 　　｜　IOC(exp)=exp1 　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　使用方法は MEMと同じです。 （４）ＬＯＷ 　　・――――――――――――――――――――・ 　　｜例　LOW(exp)　　　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　exp の下位バイトを取った値を持ちます。 　　　exp は−32,767〜32,767までで、 　　　この関数が持つのは０〜 255までです。 （５）ＭＯＤ 　　　 MODは除算時の余りを与えます。 　　・――――――――――――――――――――・ 　　｜例　MOD(exp,exp1) 　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　余りはｅｘｐ／ｅｘｐ１のそれです。 （６）ＩＲＮＤ 　　　この関数は乱数を与えます。 　　・――――――――――――――――――――・ 　　｜例　IRND(exp) 　　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　乱数は０〜 exp-1までの数です。 　　　exp の上限は32,767までです。 （７）ＩＡＢＳ 　　・――――――――――――――――――――・ 　　｜例　IABS(exp) 　　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　この関数は expの絶対値を与えます。 （８）ＩＳＩＧＮ 　　・――――――――――――――――――――・ 　　｜例　ISIGN(exp1,exp2)　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　exp1にexp2の持つ符号を与えます。 　　　この関数が持つ値はexp2の符号の付いたexp1である。 （９）絶対値 　　・――――――――――――――――――――・ 　　｜　ABS(fxp)　　　　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　fxp は定数型の定数、変数、あるいは算術式（以下、同じ）で、 　　　fxp の絶対値を与えます。 （10）平方根 　　・――――――――――――――――――――・ 　　｜　SQRT(fxp) 　　　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　fxp の平方根を与えます。 （11）、（12）、（13）三角関数 　　・――――――――――――――――――――・ 　　｜　SIN(fxp)　　　　　　　　　　　　　　　｜ 　　｜　COS(fxp)　　　　　　　　　　　　　　　｜ 　　｜　TAN(fxp)　　　　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　fxp の単位はラジアンで、それぞれ正弦，余弦、正接の値を 　　　与えます（ 180°＝πラジアン）。 （14）指数関数 　　・――――――――――――――――――――・ 　　｜　EXP(fxp)　　　　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　指数関数値ε^(fxp)を与えます。 （15）自然対数 　　・――――――――――――――――――――・ 　　｜　ALOG(μp) 　　　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　自然対数 logε^(fxp)を与えます。 （16）逆正接 　　・――――――――――――――――――――・ 　　｜　ATAN(μp) 　　　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　逆正接 tan^-1(fxp)を与えます。 （17）実数変換 　　・――――――――――――――――――――・ 　　｜　FLOAT(exp)　　　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　整数型から実数型への変換用関数で、整数exp の実数値を与えます。 　　　【例】FLOAT(1) は 0.100000E+1 　　　　　　FLOAT(-2)は-0.200000E+1 （18）整数変換 　　・――――――――――――――――――――・ 　　｜　IFIX(fxp) 　　　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　実数型から整数型への変換用関数で、実数fxp に対して、 　　　その整数値を与えます。 　　　【例】IFIX(1.2345)は1 　　　　　　IFIX(-1.23E+1)は-12 （19）ＩＯＲ 　　・――――――――――――――――――――・ 　　｜　IOR(exp1,exp2)　　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　exp1とexp2との対応する各ビットごとにＯＲを取った値を与えます。 　　　【例】IOR($0F,$F0)は$FF 　　　　　　IOR($1F,$01)は$1F （20）ＩＡＮＤ 　　・――――――――――――――――――――・ 　　｜　IAND(exp1,exp2) 　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　exp1とexp2との対応する各ビットごとにＡＮＤを取った値を与えます。 　　　【例】IAND($0F,$F0)は$00 　　　　　　IAND($1F,$01)は$01 （21）ＩＸＯＲ 　　・――――――――――――――――――――・ 　　｜　IXOR(exp1,exp2) 　　　　　　　　　　　｜ 　　・――――――――――――――――――――・ 　　　exp1とexp2との対応する各ビットごとにＸＯＲを取った値を与えます。 　　　なお、ＮＯＴはexp1かexp2のどちらかを＄FFにすると得られます。 　　　【例】IXOR($0F,$F0)は$FF 　　　　　　IXOR($1F,$01)は$1E 　　　　　　IXOR($1F,$FF)は$E0 以上がＦＯＲＴＲＡＮ−ＭＺＢの持つ関数であり算術式の中で自由に使えます。 式においては、＊、／が＋、−より先に演算され、 （　）が付いているときのみそれが優先されます。 （　）は６重まで許されます。 ◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇ 　　　　　エラーメッセージ ◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇ コンパイラは次のようなエラーコードを表示します。 ・――――――――――――――――――――・ ｜　ＥＲＲＯＲ　ｎ　　　　　　　　　　　　｜ ・――――――――――――――――――――・ ｎはエラーコードで数字が出力されます。 （１）ＥＲＲＯＲ２ 　　　パラメータ誤り、または配列の添字の誤りがある場合。 （２）ＥＲＲＯＲ３ 　　　文番号の２重定義の場合。 （３）ＥＲＲＯＲ４ 　　　DIMENSION文 の出てくるところがおかしいとき。 （４）ＥＲＲＯＲ５ 　　　文法上のエラーの場合。 （５）ＥＲＲＯＲ６ 　　　DOの多重ループが６重以上となっている場合。 （６）ＥＲＲＯＲ７ 　　　変数名がおかしい。 　　　たとえば４文字以上の名前を付けたとき。 （７）ＥＲＲＯＲ８ 　　　DIMENSION内 でのエラー。 　　　宣言時に 2,047以上の添字を付けたとき。 （８）ＥＲＲ　ＤＯ　ＬＯＯＰ 　　　DOループがおかしいとき。 （９）ＭＥＭＯＲＹ　ＳＩＮＥ　ＯＶＥＲ　ＡＢＯＲＴ 　　　メモリ・サイズをオーバーしたとき。 （10）ＳＴ　ＮＯ，ＮＯＴ　ＦＯＵＮＤ 　　　飛び先番号がない場合。 これらに加えて、実数形演算時でのエラーメッセージとして、 下の４種類が表示されます。 （１）０　ＥＲＲＯＲ　ＸＸＸＸ 　　　計算途中にオーバーフローが起こったとき。 　　　××××はそれが発生した絶対番地。 （２）Ｕ　ＥＲＲＯＲ　ＸＸＸＸ 　　　計算途中にアンダーフローが起きたとき。 （３）Ｎ　ＥＲＲＯＲ　ＸＸＸＸ 　　　計算途中で，負の数が許されない場所に負の数が発生したとき、 　　　たとえば、SQRT(fxp)のfxpが負の値になったとき。 （４）Ｄ　ＥＲＲＯＲ　ＸＸＸＸ 　　　除算実行時の除数に異常が生じたとき。 ◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇ 　　　　　　プログラム例 ◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇ １）高速フーリエ変換 ＦＯＲＴＲＡＮの使える計算機では、 高速フーリエ変換（ＦＦＴ）はごく一般的なものになっており、 音声認識、図形処理の強力な武器として広く活用されています。 ここでは、ＦＯＲＴＲＡＮ−ＭＺＢのサンプル・プログラムとして、 ＦＦＴプログラムを紹介します。 ●プログラムの構成 Ａ）行番号０〜28：入力次元、数Ｎと入力の実数部、虚数部、 　　XR(I),XI(I) を与えて、 　　ＦＦＴサブルーチンをＣＡＬＬする、メイン・ルーチンです。 Ｂ）行番号29〜38：ＦＦＴの結果を表示するサブルーチンです 　　（CALL1000）。 　　途中で表示を止めたいときは、任意のキーを押してください。 　　表示終了後は、任意のキーが押されるまで止まっています。 　　行番号35〜52：ＣＯＳのテーブルを作成し、 　　C(I)に代入するサブルーチンです（CALL5000）。 　　行番号 53〜134：ＦＦＴを実行するサブルーチンです 　　（CALL5100）。 サブルーチン||5100||では IPS=0のときＦＦＴ、 IPS=1 のとき逆ＦＦＴを計算します。 整数と実数ではその演算時間に格段の差があるので、 できるだけ実数演算を減らしました。 この例（ N=128）では、“ＦＦＴ　ＷＯＲＫＩＮＧ”が表示されてから、 “ＦＦＴ　ＦＩＮＩＳＨＥＤ”が表示されるまでに16秒を要します。 メイン・ルーチンPrg.1、Prg.2……を作成しておき 『上述のＢ）の部分、Prg.1』 、 あるいは、『上述のＢ）の部分、Prg.2』 の順に カセットからロードすると、色々のメイン・ルーチンから、 ＦＦＴサブルーチンをＣＡＬＬすることができます。 ２）リサージュ図形 グラフィック・コマンドを使ってリサージュ図形を描かせる プログラムです。 【】参考文献 １）野沢、竹部、中本：“ＦＯＲＭ”、Ｉ／Ｏ、’80年５月号〜９月号、 　　1980年５月号〜９月号、工学社 ２）秋野　実山：“ＦＯＲＴＲＡＮ−ＭＺ”、Ｉ／Ｏ、’81年１月号